object FormTellhist: TFormTellhist
  Left = 249
  Top = 178
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSizeToolWin
  Caption = 'Tell Monitor'
  ClientHeight = 217
  ClientWidth = 509
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000888880000000000000000000000
    0000444448800000000000000000000000004FFFF48000000000000000000000
    000004FFF48000000000000000000000000004FFF48000000000000000000000
    000004FFF48800000000000000000000000004FFFF4800000000000000000000
    0000004FFF48000000000000000000000000004FFF4880000000000000000000
    0000004FFFF48888800000000000000000000004FFF444448880000000000000
    00000004FFFFFFFF448888000000000000000004FFFFFFFFFF44488000000000
    000000004FFF4444FFFFF48880000000000000004FFF4CCC44FFFF4488000000
    000000004FFF4EEECC4FFFFF48800000000000004FFFF4FFEEC44FFFF4800000
    0000000004FFF480FFECC4FFF48800000000000004FFF48800FEC4FFFF480FF0
    0000000004FFFF48000FEC4FFF4800EFF000000004FFFF48000FEC4FFF48000E
    EFFFF000004444400FFFEC4FFF48000CCCEEEEFFFFFFFFFFFEEEC4FFFF480000
    44CCCCCEEEEEEEEEECCC4FFFFF4000000444444CCCCCCCCCC444FFFFF4000000
    004FFFF4444444444FFFFFFF4000000000044FFFFFFFFFFFFFFFFF4400000000
    00000444FFFFFFFFFFF444000000000000000000444444444440000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFF83FFFFFF01FFFFFF01FFFFFF81FFFFFF81FFFFFF80FFFFFF80FFFFFFC0
    FFFFFFC07FFFFFC007FFFFE001FFFFE0003FFFE0001FFFF00007FFF00003FFF0
    0001FFF00001FFF81000FFF80C009FF80E00C7F80E00E07C1800E0000000F000
    0001F8000003FC000007FE00000FFF80003FFFF001FFFFFFFFFFFFFFFFFF}
  KeyPreview = True
  Menu = MainMenu
  OldCreateOrder = True
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnResize = FormResize
  PixelsPerInch = 120
  TextHeight = 14
  object PanelTellBase: TPanel
    Left = 0
    Top = 159
    Width = 509
    Height = 58
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object PanelTell: TPanel
      Left = 0
      Top = 0
      Width = 509
      Height = 22
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object BtnAdd: TSpeedButton
        Left = 0
        Top = 2
        Width = 15
        Height = 20
        Hint = 'Insert a name you enter to the right into the grid above'
        Glyph.Data = {
          B2000000424DB2000000000000007600000028000000060000000F0000000100
          0400000000003C00000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777007777
          7800777700007770070077708700770077007708770078087800080808000000
          08000000070070008700700077007707770077077700}
        ParentShowHint = False
        ShowHint = True
        OnClick = BtnAddClick
      end
      object EditTell: TEdit
        Left = 14
        Top = 1
        Width = 430
        Height = 22
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 250
        ParentFont = False
        TabOrder = 0
        OnKeyPress = EditTellKeyPress
      end
    end
    object MemoTell: TMemo
      Left = 0
      Top = 22
      Width = 509
      Height = 36
      TabStop = False
      Align = alClient
      Color = clSilver
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 1
      OnDblClick = GridTellhistDblClick
    end
  end
  object PanelTellhist: TPanel
    Left = 175
    Top = 0
    Width = 334
    Height = 159
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object PanelTellhistFrom: TPanel
      Left = 0
      Top = 0
      Width = 334
      Height = 23
      Align = alTop
      Color = clSilver
      TabOrder = 1
      object LabelTellhist: TLabel
        Left = 5
        Top = 4
        Width = 12
        Height = 16
        Caption = '   '
        Color = clSilver
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
      object PanelPause: TPanel
        Left = 278
        Top = 1
        Width = 55
        Height = 21
        Align = alRight
        BevelInner = bvLowered
        TabOrder = 0
        object LEDRed2: TImage
          Left = 36
          Top = 2
          Width = 17
          Height = 17
          Hint = 'Connected'
          Picture.Data = {
            07544269746D617042010000424D420100000000000076000000280000001100
            0000110000000100040000000000CC0000000000000000000000100000001000
            0000000000000000800000800000008080008000000080008000808000008080
            8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
            FF00888888888888888880000000888888888888888880000000888888777778
            8888800000008888771111177888800000008887111111111788800000008887
            1111111117888000000088711111111111788000000088711911111111788000
            0000887119111111117880000000887119111111117880000000887111911111
            1178800000008887111999111788800000008887111111111788800000008888
            7711111778888000000088888877777888888000000088888888888888888000
            0000888888888888888880000000}
        end
        object LEDRed: TImage
          Left = 36
          Top = 2
          Width = 17
          Height = 17
          Hint = 'Connected'
          Picture.Data = {
            07544269746D617042010000424D420100000000000076000000280000001100
            0000110000000100040000000000CC0000000000000000000000100000001000
            0000000000000000800000800000008080008000000080008000808000008080
            8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
            FF00888888888888888880000000888888888888888880000000888888777778
            8888800000008888779999977888800000008887999999999788800000008887
            9999999997888000000088799999999999788000000088799F99999999788000
            000088799F99999999788000000088799F999999997880000000887999F99999
            9978800000008887999FFF999788800000008887999999999788800000008888
            7799999778888000000088888877777888888000000088888888888888888000
            0000888888888888888880000000}
        end
        object LEDGreen: TImage
          Left = 36
          Top = 2
          Width = 17
          Height = 17
          Hint = 'Connected'
          Picture.Data = {
            07544269746D617042010000424D420100000000000076000000280000001100
            0000110000000100040000000000CC0000000000000000000000100000001000
            0000000000000000800000800000008080008000000080008000808000008080
            8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
            FF00888888888888888880000000888888888888888880000000888888777778
            888880000000888877AAAAA77888800000008887AAAAAAAAA788800000008887
            AAAAAAAAA78880000000887AAAAAAAAAAA7880000000887AAFAAAAAAAA788000
            0000887AAFAAAAAAAA7880000000887AAFAAAAAAAA7880000000887AAAFAAAAA
            AA78800000008887AAAFFFAAA788800000008887AAAAAAAAA788800000008888
            77AAAAA778888000000088888877777888888000000088888888888888888000
            0000888888888888888880000000}
        end
        object BtnPause: TSpeedButton
          Left = 2
          Top = 2
          Width = 17
          Height = 17
          Hint = 'Pause Tells'
          AllowAllUp = True
          Glyph.Data = {
            06010000424D06010000000000007600000028000000180000000C0000000100
            0400000000009000000000000000000000001000000010000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
            888888888888888778887788888FF888FF888800788007888877F8877F888800
            788007888877F8877F888800788007888877F8877F888800788007888877F887
            7F888800788007888877F8877F888800788007888877F8877F88880078800788
            8877F8877F888800788007888877F8877F888800888008888877888778888888
            88888888888888888888}
          NumGlyphs = 2
          ParentShowHint = False
          ShowHint = True
          OnClick = BtnPauseClick
        end
        object BtnPlay: TSpeedButton
          Left = 19
          Top = 2
          Width = 17
          Height = 17
          Hint = 'Resume Tells'
          AllowAllUp = True
          Enabled = False
          Glyph.Data = {
            06010000424D06010000000000007600000028000000180000000C0000000100
            0400000000009000000000000000000000001000000010000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
            88888888888888778888888888FF888888888007778888888778FF8888888000
            0777888887F778FF888880000007778887F88778FF8880000000077887F88887
            78F880000000008887F88888F78880000000088887F888F77888800000088888
            87F8F778888880000888888887F7788888888008888888888778888888888888
            88888888888888888888}
          NumGlyphs = 2
          ParentShowHint = False
          ShowHint = True
          OnClick = BtnPlayClick
        end
      end
    end
    object GridTellhist: TPortalGrid
      Left = 0
      Top = 23
      Width = 334
      Height = 136
      Align = alClient
      Color = clSilver
      DataSource = DSTellhist
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      Options = [dgTitles, dgColLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
      ParentFont = False
      PopupMenu = PopupMenu2
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
      OnDblClick = GridTellhistDblClick
      OnKeyPress = GridTellhistKeyPress
      Columns = <
        item
          Expanded = False
          FieldName = 'FIndex'
          Title.Caption = 'Index'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FFrom'
          Title.Caption = 'From'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Message'
          Visible = True
        end>
    end
  end
  object PanelTellgrid: TPanel
    Left = 0
    Top = 0
    Width = 175
    Height = 159
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 2
    object PanelButtons: TPanel
      Left = 0
      Top = 0
      Width = 175
      Height = 23
      Align = alTop
      TabOrder = 1
      object BtnChange: TSpeedButton
        Left = 2
        Top = 2
        Width = 37
        Height = 20
        Hint = 'Show tells from one person'
        Caption = 'One'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        OnClick = BtnChangeClick
      end
      object BtnClearOne: TSpeedButton
        Tag = 1
        Left = 39
        Top = 2
        Width = 58
        Height = 20
        Hint = 'Clear tells from the selected person'
        Caption = 'Clear One'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        OnClick = MenuClearAllClick
      end
      object BtnClearAll: TSpeedButton
        Left = 97
        Top = 2
        Width = 58
        Height = 20
        Hint = 'Clear all tells from all people'
        Caption = 'Clear All'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        OnClick = MenuClearAllClick
      end
      object BtnHelp: TSpeedButton
        Left = 155
        Top = 2
        Width = 18
        Height = 20
        Hint = 'Help!'
        Glyph.Data = {
          D6000000424DD60000000000000076000000280000000C0000000C0000000100
          0400000000006000000000000000000000001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888778888
          0000888880077888000088880BB07888000088880BB088880000888880077888
          000088880BB077880000888770BB077800008800770BB0780000880B0770B078
          0000880BB00BB08800008880BBBB088800008888000088880000}
        ParentShowHint = False
        ShowHint = True
        OnClick = BtnHelpClick
      end
    end
    object GridTell: TPortalGrid
      Left = 0
      Top = 23
      Width = 175
      Height = 136
      Align = alClient
      Color = clSilver
      DataSource = DSTell
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      Options = [dgTitles, dgColLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
      ParentFont = False
      PopupMenu = PopupMenu1
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
      OnDblClick = GridTellDblClick
      OnKeyPress = GridTellKeyPress
      Columns = <
        item
          Expanded = False
          FieldName = 'Amt'
          Title.Caption = 'Amt '
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FFrom'
          Title.Caption = 'From'
          Visible = True
        end>
    end
  end
  object MainMenu: TMainMenu
    Left = 8
    Top = 80
    object MenuFile: TMenuItem
      Caption = '&File'
      object MenuSave: TMenuItem
        Caption = '&Save Tells to Text File'
        OnClick = MenuSaveClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object MenuExit: TMenuItem
        Caption = '&Close Tell Monitor'
        ShortCut = 16499
        OnClick = MenuExitClick
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object CloseandDisableTellMonitor1: TMenuItem
        Caption = 'Close and &Disable Tell Monitor'
        OnClick = CloseandDisableTellMonitor1Click
      end
      object N5: TMenuItem
        Caption = '-'
        Visible = False
      end
      object MenuReturn2: TMenuItem
        Caption = 'Esc'
        ShortCut = 27
        Visible = False
        OnClick = MenuReturn2Click
      end
    end
    object MenuTell: TMenuItem
      Caption = '&Tell'
      object MenuInsert: TMenuItem
        Caption = '&Insert Name'
        ShortCut = 8205
        OnClick = BtnAddClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object MenuShowOne: TMenuItem
        Caption = 'Show Only Tells to/from &Selected Person'
        OnClick = MenuShowOneClick
      end
      object MenuShowAll: TMenuItem
        Caption = 'Show Tells to/from &All'
        Checked = True
        OnClick = MenuShowAllClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object MenuClearSelected: TMenuItem
        Tag = 1
        Caption = '&Clear Tells from Selected Person'
        OnClick = MenuClearAllClick
      end
      object MenuClearAll: TMenuItem
        Caption = 'C&lear All Tells'
        OnClick = MenuClearAllClick
      end
    end
    object MenuOptions: TMenuItem
      Caption = '&Options'
      object MenuStayOnTop: TMenuItem
        Caption = 'Keep Tell Monitor on &Top'
        OnClick = MenuStayOnTopClick
      end
      object MenuExpanded: TMenuItem
        Caption = 'Show &Expanded Tells'
        OnClick = MenuExpandedClick
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object MenuColor: TMenuItem
        Caption = 'Color tells to/from person'
        Enabled = False
        OnClick = PopupColorLine1Click
      end
    end
    object MenuHelp: TMenuItem
      Caption = '&Help'
      object MenuTellhistHelp: TMenuItem
        Caption = 'Tell Monitor &Help'
        ShortCut = 112
        OnClick = BtnHelpClick
      end
    end
    object MenuInvisible: TMenuItem
      Caption = 'Invisible'
      Visible = False
      object MenuPanic: TMenuItem
        Caption = 'Panic'
        ShortCut = 8219
        OnClick = MenuPanicClick
      end
      object MenuCtrlTab: TMenuItem
        Caption = 'Ctrl+Tab'
        ShortCut = 16393
        OnClick = MenuCtrlTabClick
      end
      object MenuCtrlTab2: TMenuItem
        Tag = 1
        Caption = 'Ctrl+Tab2'
        ShortCut = 24585
        OnClick = MenuCtrlTabClick
      end
      object MenuAutotyper: TMenuItem
        Tag = 999
        Caption = 'Autotyper'
        ShortCut = 16397
        OnClick = MenuAutotyperClick
      end
      object MenuChat: TMenuItem
        Tag = 1
        Caption = 'Chat'
        ShortCut = 24643
        OnClick = MenuAutotyperClick
      end
      object MenuStatus: TMenuItem
        Tag = 3
        Caption = 'Status'
        ShortCut = 24659
        OnClick = MenuAutotyperClick
      end
      object MenuMessage: TMenuItem
        Tag = 4
        Caption = 'Message'
        ShortCut = 24653
        OnClick = MenuAutotyperClick
      end
      object MenuImagery: TMenuItem
        Tag = 5
        Caption = 'Imagery'
        ShortCut = 24649
        OnClick = MenuAutotyperClick
      end
      object MenuFToolbar: TMenuItem
        Tag = 6
        Caption = 'FToolbar'
        ShortCut = 24646
        OnClick = MenuAutotyperClick
      end
      object MenuFiltered: TMenuItem
        Tag = 7
        Caption = 'Filtered'
        ShortCut = 24658
        OnClick = MenuAutotyperClick
      end
      object MenuVariables: TMenuItem
        Tag = 8
        Caption = 'Variables'
        ShortCut = 24662
        OnClick = MenuAutotyperClick
      end
      object MenuMap: TMenuItem
        Tag = 9
        Caption = 'Map'
        ShortCut = 24647
        OnClick = MenuAutotyperClick
      end
      object Data1: TMenuItem
        Tag = 11
        Caption = 'Data'
        ShortCut = 24644
        OnClick = MenuAutotyperClick
      end
      object Canvas1: TMenuItem
        Tag = 13
        Caption = 'Canvas'
        ShortCut = 24654
        OnClick = MenuAutotyperClick
      end
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 8
    Top = 48
    object PopupColorLine1: TMenuItem
      Caption = '&Color tells to/from person'
      OnClick = PopupColorLine1Click
    end
  end
  object PopupMenu2: TPopupMenu
    Left = 288
    Top = 48
    object PopupColorLine2: TMenuItem
      Caption = '&Color tells to/from person'
      OnClick = PopupColorLine2Click
    end
  end
  object TimerPause: TTimer
    Enabled = False
    OnTimer = TimerPauseTimer
    Left = 215
    Top = 80
  end
  object DialogSave: TSaveDialog
    DefaultExt = '.txt'
    Filter = 'Text Files (*.txt)|*.txt|All Files|*'
    InitialDir = 'files'
    Options = [ofOverwritePrompt, ofHideReadOnly]
    Title = 'Capture Text to File'
    Left = 74
    Top = 81
  end
  object DSTell: TDataSource
    DataSet = Datawell.TableTell
    OnDataChange = DSTellDataChange
    Left = 40
    Top = 80
  end
  object DSTellhist: TDataSource
    DataSet = Datawell.TableTellhist
    OnDataChange = DSTellhistDataChange
    Left = 184
    Top = 80
  end
end
